VS_Palette()         Set the active color palette

Description:

  VS_Palette() allows the programmer to switch between the nine
  available color palettes.  Some functions in VERNSIX.LIB use a
  specified palette i.e.  VS_Help uses palette #2, Error messages are
  displayed using palette #3, and network delays are shown using palette
  #4.  The programmer is free to use any and all of the nine available
  palettes.

Syntax:     

  n_NewPalette = VS_Palette( n_Palette )

Pass:       

  n_Palette is a numeric value representing the desired color
  palette.  n_Palette must be in the range of 1 to 9.

Return:     

  n_NewPalette is a numeric expression that will contain the current
  (or the new) palette number.

Notes:      

  In order to allow the user to configure the various palettes to
  his/her taste, it is the programmer's job to select the appropriate
  palette prior to calling VS_Color().

Example:    

  IF l_Error = .T.
     VS_GRABSCR()
        VS_PALETTE(3)
        ac_Msg[1] = " Some error just happened "
        VS_MSG(ac_Msg,1,"","")
        INKEY(10)
     VS_PUTSCR()
     ...
  ENDIF

Usage:      

  VS_Palette() is a very handy way to help direct the users' eyes to the
  appropriate location on the screen.  If designed effectively, the
  users' eyes will be less strained after prolonged use of your
  applications.